#!/usr/bin/perl

# first call
# header("Content-Type: application/octet-stream\r\n\r\n") included.
require 'ChopSet.ph';

$|=1;
sysread(STDIN, $time, $ENV{CONTENT_LENGTH});
sleep($time) if($time > 0);
print("success\n");

# last call.
&endCall();
